10 TB=22528
50 D=192
60 F=0.745
70 ZA=128
100 FORX=0TO255
300 Y=F*D/(((X+ZA)AND255)+D)
400 POKETB+X,(256*Y)AND255
500 NEXT
1000 POKETB-ZA+256,255